1 REM SOUND EFFECTS
2 REM SPACE GUNSHOT (VIC VERSION)
10 GOSUB 900:GOTO 100
20 POKE FR(0),0:POKE FR(1),0:POKE FR(2),0:POKE FR(3),115
30 PRINT "."
45 FOR I=15 TO 0 STEP -1.5:POKE VL,I:X=P(70+3*I):POKE FR(3),X
50 POKE FR(0),450-X:NEXT:POKE FR(3),0
55 FOR I=1 TO 9 STEP 3:POKE VL,I:NEXT
60 FOR I=0 TO 3:POKE FR(I),0:NEXT
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT";
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 DIM FR(3),P(127)
910 FR(0)=36874:FOR I=1 TO 3:FR(I)=FR(I-1)+1:NEXT
920 FOR I=0 TO 127:P(I)=I+128:NEXT
929 REM SET VOLUME ADDRESS
930 VL=36878
990 RETURN